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#################################################################################################### 

# PROJECT : Apple /// SOS DISK /// Formatter Device Driver 1.30 (6502 Assembly Source Code) 

# FILE NAME: FMTDX . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



.NOPATCHLIST 
.NOMACROLIST 



SOS DISK /// Formatter Device Driver 

(C) Copyright 1980, 1981 by Apple Computer Inc. 



Revisions: ll-SEP-81 VI. 10 Modify Devtype and Subtype to 
reflect new conventions. Activate all formatters. 

19-AUG-82 VI. 21 Include DSPEED checks and max /RRA82237/ 

retries on WTRACK16. R. Auricchio. Changes marked by /RRA82237/ 

'/RRA82237'. /RRA82237/ 

15-SEP-82 VI. 22 Fix WTRACKl 6/VTRACK code so /RRA82258/ 

it doesn't write 128 nybbles prior to sector on a /RRA82258/ 

retry. This caused 'too fast' error if several tries /RRA82258/ 

were done: since 128-nibble seam is so large, VTRACK /RRA82258/ 
thinks NSYNC is too large, and decrements it. The end/RRA82258/ 
result is NSYNC getting too small. Also changed VTRACK/RRA8 2 2 5 8 / 

retries to 2 rotations MAX. R. Auricchio. /RRA82258/ 

Changes marked by '/RRA82258'. /RRA82258/ 

06-DEC-82 VI. 23 Fix VTRACK code to verify that /RRA82340/ 

the gap between sectors 15 S (the "seam") is large /RRA82340/ 

enough. R. Auricchio. Changes marked by '/RRA82340'. /RRA82340/ 

04-Jan-82 VI. 30 Installed comment field and set /HGL8 3 4 / 

the configuration block length to 0. H. Lehtman . /HGL83004/ 

Deleted absolute assembly code. /HGL83004/ 

Added code to support D_CONTROL by returning rather /HGL83004/ 

than generating an error. /HGL83004/ 

Changes marked by /HGL83004. /HGL83004/ 



; Error 


codes returned 


$00 : 


good completion 








$27 : 


Unable to format 


(usually bad media) 






$28 : 


Write-Protected 








$33 : 


Drive too SLOW 


/RRA82237/ 






$34 : 


Drive too FAST 


/RRA82237/ 


DEVTYPE 


.EQU 


Oil 


;Disk Formatter 


SUBTYPE 


. EQU 


01 




For Disk /// 


APPLE 


.EQU 


0001 






RELEASE 


.EQU 


1300 




/HGL83301/ 


DEVBLKS 


.EQU 


280 . 




NUMBER OF BLKS ON VOLUME 


MAXTRKRETRY 


. EQU 


3 . 




MAX RETRIES PER TRACK /RRA82237/ 


MAXSECTRETRY 


.EQU 


16. 




MAX RETRIES TO READ SECTORS /RRA82258/ 


; AVERAGE 


CORRECT SYNC VALUE HAS 


BEEN MEASURED AS FOLLOWS /RRA82237/ 


GOODSYNC 


.EQU 


22 . 




CORRECT VALUE /RRA822 37/ 


DELTAS 


.EQU 


3. 




/RRA82237/ 


DELTAF 


.EQU 


3 . 




DSPEED IS DELTA*16/2 /RRA82237/ 


MINSYNC 


.EQU 


GOODSYNC 


-DELTAF 


/RRA82237/ 


MAXSYNC 


.EQU 


GOODS YNC+DELTAS 


/RRA82237/ 




.PAGE 








; The macro 


SWITCH performs 


an N way 


branch based on a 


switch index. The 



maximum value of the switch index is 127 with bounds checking provided 
as an option. The macro uses the A and Y registers and alters the C, 
Z, and N flags of the status register, but the X register is unchanged. 

SWITCH [index], [bounds], adrs_table, [*] 

index This is the variable that is to be used as the switch index . 
If omitted, the value in the accumulator is used. 

bounds This is the maximum allowable value for index. If index 

exceeds this value, the carry bit will be set and execution 
will continue following the macro. If bounds is omitted. 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



no bounds checking will be performed. 

adrs_table This is a table of addresses (low byte first) used by the 
switch. The first entry corresponds to index zero. 

* If an asterisk is supplied as the fourth parameter, the 
macro will push the switch address but will not exit to 
it; execution will continue following the macro. The 
program may then load registers or set the status before 
exiting to the switch address. 



$010 



SOS Global Data S Subroutines 



.MACRO 


SWITCH 




. IF 


"%1" <> "" 


If PARMl is present. 


IDA 


%1 


Load A with switch index 


. ENDC 






. IF 


"%2" <> "" 


If PARM2 is present. 


CMP 


#%2 + l 


Perform bounds checking 


BCS 


$010 


on switch index 


.ENDC 






ASL 


A 




TAY 






LDA 


%3+l,Y 


Get switch address from table 


PHA 




and push onto stack 


LDA 


%3, Y 




PHA 






. IF 


" % 4 " <> " * " 


If PARM4 is omitted. 


RTS 




Exit to code 


.ENDC 




Otherwise, drop through 


.ENDM 






. PAGE 







SYSERR 


• EQU 


1928 




; SOS Error Codes 






XCTLCODE 


.EQU 


21 


; Invalid control/status code 


XCTLPARM 


. EQU 


22 


/Invalid contr ol / status parm 


XNOTOPEN 


.EQU 


23 


; Device not open 


XNOTAVAIL 


.EQU 


24 


;Device not available 


XBADOP 


.EQU 


26 


; Invalid operation for device 


XIOERR 


.EQU 


27 


;I/0 err, cannot format 


XWPROT 


.EQU 


2B 


;Write Protected 


XDEVSPEC 


.EQU 


30 


; Device-speci f ic error 


; Miscellaneous Equates 






TRUE 


.EQU 


80 




FALSE 


.EQU 


00 




; SOS Device 


Driver Interface 




SOSINT 


.EQU 


oco 




REQCODE 


.EQU 


SOSINT+0 


; SOS request code 


UNITNUM 


.EQU 


SOSINT+1 


; REQUESTED UNIT NUMBER 


CTLSTAT 


.EQU 


SOSINT+2 


; Control/status code 


CSLIST 


.EQU 


SOSINT+3 


; Control/status list pointer 




.PROC 


FMTDISK3 





/RRA82237/ 



Device Identification Blocks: The first one is here so that the SOS 
loader correctly pagealigns us. The other three (for .D2..4) are 
at the end of the module, so they don't affect the alignment. 



DIBDl 



.WORD 
.WORD 
.ASCII 
.ASCII 



. WORD 
. WORD 



OFFFF ; /HGL83004/ 

53. /LENGTH OF COMMENT /HGL83004/ 

"(C) Apple Computer, 1983. " ; /HGL83004/" 

"Disk /// Formatter Driver." ; /HGL83004/" 



DIBD2 
FMTMAIN 



/Link to next device handler 
/Entry point address 
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n n n 1 s p 

U U U _L J O 


. BYTE 


g 




; Length of device name 




U U U -L J ^ 


ASC 1 1 


" FMTDl 










nnm fin 

U U U J- u u 


. BYTE 


OCO 






Active, page-aligned 




0001 fil 

V -L *J _L 


. BYTE 


00 00 




; Slot & Unit numbers 




yj \j -L K> 


. BYTE 


DEVT YPF 

Ha \i L L IT Hi 










nnm fi'^ 

U U V -L U -J 


. BYTE 


9T7RT YPF 










nnm 4 


. BYTE 













nnm s 

U U U U J 




U J_j V D J_J X\ O 




; block count 




nnm ^ ^ 

W U W _L U U 


WORD 


APPLE 










n n n 1 7 

u u u ± u / 














nnm 

U U U -L U O 














U U U J- D -7 




g 








/uriT 83004 / 


00017 


DCB MINSYNC . BYTE 


MINSYNC 








/RRA822 37 / 


0171 


iJ V. D 1 IrtA OliNL- .DlilLi 


MAXSYNC 










nnm 79 


TR'K'RFTRV RVTF 
iJ y^ o X Jr\r\.jr\£j j. jtv i . o i ± Hi 


MAXTRKRETRY 








/RRA89937 / 


nnm 7 


rif'pi QFTTRETRY BYTE 


MAXSECTRETRY 








/RRA89958/ 


017 4 


. TITLE 


"DRIVER GLOBAL 


EQUATES/DATA" 




n m 7 s 


INCLUDE 


FMTDATA. TEXT 






DATA 




nnm 7 ^ 

U U U -L ' D 


. ± i \ J-i U U J-j 


FMTREAD . TEXT 






READ DATA 




017 7 


■ J-iNv-J-iUJ-Tj 


FMTWRADDR.TEXT 






WRITE ADDRESS 




ono 1 7 8 

U U U J- / o 




FMTFORMAT . TEXT 






FORMATTER CODE 




00017 9 


TNfT.TTDF 


FMTWTRACK. TEXT 




; WTRACK16/VTRACK 


/RRA8 99 R8 / 

/ X\X\ZT.O Z. Z. o / 


onm 9.0 

U V U -L O U 


. TITLE 


"FORMATTER MAINLINE" 








onm 81 

U U U -L O -L 


. PAGE 












n n m ft ? 

U U U -L O ^ 


























018 3 

\J ^ \J -L *0 ^ 














nnm ft 4 

U U U -L O 4 




point 










n n n 1 ft s 

U U U _L O J 














nnm ft ^ 

U U U -L O 


























000187 
\j \j \j J- \j 1 














000188 

\J \J \J ^ ^ \J 


FMTMAIN . EQU 












onm ft Q 

\J \j V) A- yj y 














nnm Qn 


o vv J- X ^ n 


REQCODE, 






3, REQSTSW 




0191 














onm 




#XBADOP 




; Invalid request code 




onm Q'^ 

U U U -L O 


JSR 


SYSERR 










0194 














onm Q s 














nnm q 

U U U J- _7 D 










FMTDISK3 request switch 




000197 


• vv r\ 


BADREQ-1 






- READ 




nnm q 8 

U U U -L ^ O 


WOP ri 

. W r\ U 


BADREQ-1 






1 - WRITE 




019 9 




FMTSTATUS-1 






2 - DSTATUS 




9 
yj \j \j \j yj 


. WORD 


FMTCTRL-1 






3 - DCNTRL 




n n 9 m 

U U U ^ U J- 


. WORD 


BADREQ-1 






4 - INVALID 




n n n 9 9 

U U w z, u z. 


. WORD 


BADREQ-1 






5 - INVALID 




n n n 9 

u u u z, w ^ 


. WORD 


BADREQ-1 






6 - OPEN 




n n 9 4 

U U U Z. U T 


.WORD 


BADREQ-1 






7 - CLOSE 




ono 9 R 

U W U U -J 


.WORD 


FMTINIT-1 






8 - INIT 




000206 

\/ \J ^ W 


.PAGE 












n 9 n 7 

U U Z. >J / 


























n n n 9 ft 

C U v z. w o 














n n n 9 Q 

C U U Z. >J J* 


; FMTDISK3 — Control Request 










91 

U U U Z. J. u 














9 1 1 

vj U U Z J L 


























9 1 9 

U U U Z _L Z 














9 1 
U U U z. J. O 


FMTCTRL .EQU 












U W U X T 


LDA 


CTLSTAT 




; get control code 




000 91 R 

U U U Z. J. o 


CMP 


#0 






reset must be supported 


/Hr;Ti89004 / 


91 fi 

U U U Z. J- u 


BNE 


$005 






for Pascal. 


/ tjf;T 8 9 4 / 


91 7 

U U U Z, / 


RTS 








nop if reset call 


1 y\fz^ 89nn4/ 


91 8 

U U U Z. -L O 


$005 CMP 


#0FE 






is it our special one? 


/ Hr;T,8 9 n n 4 / 


91 Q 

U U U Z. J. J* 


BEQ 


$020 






= >yes 




n n 9 9 n 

u u u z z u 


LDA 


#XCTLCODE 






bad control code 




n n n 9 9 1 

U U U Z Z _L 


$010 JSR 


SYSERR 










n n 9 9 9 

u u u z, z, z 














9 9^ 
u u u ^ ^ o 


; Make sure the FORMATTER code likes everything: 








0009 94 

U W U Z. Z. T 














9 9 S 
U U U Z. Z. CJ 


$020 JSR 


FMT STARTUP 






OK TO GO? 




n n 9 9 fi 

u u u Z. Z. 


CMP 


#0 






WELL? 




n n 9 9 7 

u u u z, z. / 


BNE 


$010 






=>NOPE 




n n 9 9 8 

IJ u u z. z. o 














n n 9 9 Q 

W U W z z _^ 


; SET UP CONTROL-LIST PARMS : 










000230 














000231 


LDA 


CSLIST 






copy the address of 




000232 


STA 


USERBUF 






the caller's buffer 




000233 


LDA 


CSLIST+1 










000234 


STA 


USERBUF+1 










000235 


LDA 


1400+CSLIST+l 






lest we forget the 




000236 


STA 


USERBUF+2 






extend value. . . 




000237 














000238 


LDX 


UNITNUM 






GET DRIVE TO BE FORMATTED 
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n n n ? Q 

u u u z, ^ _^ 




INX 




MAKF RFT.ATTVF TO ONF 


00'? Ad 
U U U Z. 4 U 










0007 d^ 


f c \j rs-i^irt i. ± n Hj 








U W U ^ T ^ 










n n n 9 d -5 

U U U Z, 4 3 




JSR 




** FriRMAT TT ** 
r J. ± 


9 4 4 

V-/ U V Z^ 4 4 










9 4 S 

C U U Z. 4 J 


T T PATH • 

f Hi y\. XX IT r\ X n * 








9 4 1^ 
U U U Z. 4 D 










9 4 7 

vj U U Z 4 / 




CMP 


Tr u 




0248 




BNE 


$030 


=>AN ERROR 


0249 




RT S 




AT.T ' S WFT.T. 


n n 9 s n 

U U U ^ Q U 










n n 9 R 1 

U U U O -L 


$ 3 


CMP 




T TT \ATPRnT9 


9 S 9 

U U U Z. J Z: 




BNE 


$040 


=>N0, MUST BE lOERR 


9 S 
U U U z. J O 




LD A 


#XWPROT 


YES 


9 S 4 

U U U Z. J 4 




JSR 


SYSERR 




9 S S 

U U U Z. J 3 










9 S 1^ 

U U v Z J u 


$ 4 


CMP 


#1 


IS IT I/O ERR? /RRA82237/ 


9 S 7 

U U U Z J / 




BNE 


$050 


->NOPE /RRA82237/ 


9 S ft 
U U U Z. J O 




LD A 


tXIOERR 


I/O ERROR 


n n n 9 s Q 

u \J \j ^ D y 




JSR 


SYSERR 




nnn 9 fin 

u u u z. u u 










00 9 fil 

U u U Z. U i 


$ 050 


CLC 


; SLOW/FAST IS /RRA82237/ 


9 fi9 
u u u z. u z 




ADC 


#XDEVSPEC 


CiPFr'TFTP /RRA899^7/ 


9 fi^ 
u u u z. u o 




JSR 


SYSERR 


/RRAfi99'^7 / 


9 4 
U U U Z. D 4 










9 S 

U U v Z. U J 


R ADDR T VF 


.EQU 




TM'^/AT T n nRT\7F RFOTTFCITFri 
X IN V rtXj X u ij r\ X V Hi r\iij u Jii o x jzj u 


9 (=; 1^ 

U \J z u u 




LDA 


#XCTLPARM 




9 fi7 
u u u z. u / 




JSR 


SYSERR 




n n n 9 s 

U U U ^ D O 




.PAGE 






U U U Z. U 


















9 7 
U U U z. / U 










9 71 

u U U Z. / J. 


FMTD T QT^ 
f rpixuxorvo 


— Status Request 




9 7 9 
u u u z, / z 










9 7 
u u u z. / o 


















9 7 4 

V U V Z / 4 










9 7 S 

U U U Z 1 ^ 


C L\l X O X r\, X W O 


EQU 






9 7?^ 
u u u z. / u 




LDA 


CTLSTAT 




9 7 7 




CMP 


#0FE 


IS IT OUR SPECIAL ONE? 


000 9 7 8 
u u u z. / o 




BEQ 


$010 


=>YES 


9 7 Q 
U U U z. 1 y 




LDA 


#XCTLCODE 


ILLEGAL CODE, BOZO! 


9 8 
U U U z. o u 




JSR 


SYSERR 




9 81 

U U U Z. O -L 










9 8 9 
u u u z. o z 


$ 1 


LDY 


#0 




9 8'^ 
U U U z o O 




LDA 


#OFF 


WE HAVE NO BITMAP PREFERENCE 


9 8 4 

U U U Z O 4 




STA 


(CSLIST) , Y 


FOR BITMAP-STARTBLOCK FIELD 


9 8 S 

U U U Z. O J 




INY 






9 8 
U U U ^ O D 




STA 


(CSLIST) , Y 




000 9 87 
u v u z. o / 




RTS 






9 8 8 

U U z. o o 




.PAGE 






9 8 Q 

C U v Z O 


















9 QO 

C U U Z. u 










9 Q1 

U U U Z. _L 


FMTTNTT — 

f X ijx X X X X 


- Initialization 


Request 




02 92 










9 Q 
u u u z y j> 


















02 94 










9 Q S 
U U U ^ y D 


r I'l ± J. IN J. ± 


.EQU 






000 9 Qfi 

\j \j \j ^ y \j 




CLC 






9 Q7 

\j \j \j ^ y 1 




RTS 






9 Q 8 
U U U Z. ^ o 




.TITLE 


"The other DIBs" 




00 9 Q Q 
yj \j \j ^ y y 




. PAGE 






000 ? 
\J 'J \J J \J yJ 


DIBD2 


. WORD 


DIBD3 


Link to next device handler 


0^01 

\J \J \j O \J i. 




. WORD 


FMTMAIN ; Entry point address 


n 9 

U U U 3 w z 




. BYTE 


6 ; Length of device name 


n 

u u u o u o 




.ASCII 


".FMTD2 " 




d 
U U U O U 1 




.BYTE 


080 


Active 


000 ? n R 

u u u o u o 




.BYTE 


00,01 ;Slot & Unit numbers 


3 G 

\J \J \J \J \J 




. BYTE 


DEVTYPE 




7 
yj \j \j o \J 1 




. BYTE 


SUBTYPE 




8 

\J KJ \J O \J O 




. BYTE 


00 




Q 

\j Kj \j o \j y 




. WORD 


DEVBLKS ; block count 


1 




. WORD 


APPLE 




000311 




. WORD 


RELEASE 




000312 




.WORD 





NO DCB 


000313 










000314 


DIBD3 


.WORD 


DIBD4 


Link to next device handler 


000315 




. WORD 


FMTMAIN ; Entry point address 


000316 




. BYTE 


6 ; Length of device name 


000317 




.ASCII 


".FMTD3 " 




000318 




. BYTE 


080 


Active 


000319 




. BYTE 


00, 02 


Slot & Unit numbers 
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320 


. BYTE 


DEVTYPE 






3 91 

U U U O A -L 


, BYTE 


CTTff T' YPF 






000 39? 

U U U J ii. i. 


. BYTE 









000 3 9 3 
\j \j \j ~j ^ ~j 


• vv r\ Lj 


LJ Hi V ID ±J X\ O 




f J- 'l^ r\. L-UU-IIL, 


3 9 4 

U U U O Ji. T 




APPLE 






3 9 S 

U U U -J Z. ,J 




r\j_j j_i Hir^ o J-j 






3 9?^ 

U U U O A u 









f L\\-j u nj 


3 9 7 

U U U O A / 










3 9 n TRn4 









^J_J_LiiJv L^l^ ilC-?S-L- LJ.C^V_LL^C^ iiCJ-il Li _L G i- 


3 9 Q 


WORD 


FMTMA TN 




^J-jliL-i-V kJW_LilU CILILIJ-CI^OO 


n n n n 

u u u o o u 


BYTE 


g 




f Lsn^th of dsvics nsins 


u u u o o ± 


ASC 1 1 




II 




000 3 39 

U U U O O i. 


, BYTE 


8 




• A 1^ I" "1 Tro 

f xi. L' _L V C 


000333 


. BYTE 


00, 03 




; Slot & Unit numbers 


000334 


. BYTE 


DEVTYPE 






000335 


. BYTE 


SUBTYPE 






000336 


. BYTE 


00 






000337 


. WORD 


DEVBLKS 




; block count 


000338 


. WORD 


APPLE 






000339 


.WORD 


RELEASE 






000340 


.WORD 







;N0 DCB 


000341 


.END 









#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



FMTDX. TEXT 

341 
19337 

Assembly Language Reformatter 1.0.2 (06 January 1998) 
David T. Craig — 71533.60 6@compuserve.com -- Santa Fe, 



New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS DISK /// Formatter Device Driver 1.30 (6502 Assembly Source Code) 

# FILE NAME: FMTDATA.TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



. PAGE 
GLOBAL DATA AREAS: 



USERBUF 



.BLOCK 
.TITLE 



3 ; SECTOR BUF POINTER 

"FORMATTER LOCAL EQUATES/DATA" 





.PAGE 






; FORMATTER LOCAL DATA AREAS 






E_REG 


. EQU 


OFFDF 




IBSLOT 


.EQU 


81 




IMASK 


.EQU 


IBSLOT+OA 




CURTRK 


.EQU 


IBSLOT+OB 




INTRTRY 


.EQU 


IBSLOT+OE 




RETRYCNT 


.EQU 


IBSLOT+12 




BUF 


.EQU 


IBSLOT+IA 


DATA BUFFER FOR PRE/POSTNIB 


CKSUM 


.EQU 


IBSLOT+15 


CHECKSUM BYTE 


CSSTV 


. EQU 


IBSLOT+16 


FOUR BYTES, 


SECT 


.EQU 


CSSTV+1 




TRACK 


.EQU 


CSSTV+2 






CHECKSUM, SECTOR, TRACK, VOLUME 




TRKN 


.EQU 






MONTIME 


.EQU 


CSSTV+2 




; Zeropage 


Usage : 






AA 


. EQU 


ODO 


TIMING CONSTANT 


TRK 


.EQU 


ODl 


FORMATTER TRACK 


NSECT 


.EQU 


0D2 


FORMATTER SECTOR 


NVOL 


.EQU 


0D3 


FORMATTER VOLUME 


NSYNC 


.EQU 


0D4 


NUMBER SELFSYNC NYBBLES 


IDX 


.EQU 


0D5 


NBUF INDEX/COUNT FOR READ 


TRKRETRY 


.EQU 


0D6 


NU. KhjiKlCjO r UK WiKACi^lD 




.PAGE 






. ************************ 






* 

; HARDWARE ADDRESSES * 






. ************ 








MOTOROFF 


.EQU 


0C088 




MOTORON 


.EQU 


0C089 




Q6L 


.EQU 


0C08C 




Q6H 


.EQU 


OCOBD 




Q7L 


.EQU 


0C08E 




Q7H 


. EQU 


0C08F 




. ************ 


************ 






; ROM ROUTINE 


* 

ADDRESSES * 






. ************************ 






RDADRl 6 


.EQU 


0F1B9 


READ ADDRESS 


WRITE16 


.EQU 


0F216 


WRITE DATA 


PRENIB16 


. EQU 


0F2C4 


PRENIBBLIZE FOR WRITE 


SEEK 


.EQU 


0F400 


SEEK 


MSWAIT 


.EQU 


0F456 


TIME DELAYER 


DNIBL 


.EQU 


0F300 


DNIBL TABLE ADDR 




.PAGE 







Zeropage Savearea: This area is used to save the SOS ZeroPage 
area $80..$9F, which is used exclusively by the ROM Core 
Routines. These locations are clobbered by the Formatter 
during its operation, and are then restored. 



ZEROSAVE 
XTNDSAVE 



E_SAVE 
P_SAVE 



. BLOCK 
.BLOCK 



.BLOCK 
.BLOCK 



32 . 
32 . 



; SAVEAREA FOR $1800 PAGE 

; SAVEAREA FOR $1400 PAGE 

; SAVED CALLER ENVIRONMENT 

; SAVED CALLER STATUS 



DiskDrive Select Addresses 

.Dl .D2 .D3 .D4 



SELl 
SEL2 



. BYTE 
. BYTE 



000, ODO, 0D5, 0D5, 0D5 
000, 0D2, ODl, ODO, ODl 
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000077 SEL3 .BYTE , 0D4 , 0D2 , 0D3, 0D3 

000078 

000079 FOUND .BLOCK 16. ;' SECTOR FOUND' TABLE. 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 
Author 



FMTDATA. TEXT 

79 

4060 

Assembly Language Reformatter 1.0.2 (06 January 1998) 
David T. Craig — 71533.6 6@compuserve.com — Santa Fe, 



New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS DISK /// Formatter Device Driver 1.30 (6502 Assembly Source Code) 

# FILE NAME: FMTREAD . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 



.TITLE 
.PAGE 

************************* 

A 

READ SUBROUTINE * 

(16-SECTOR FORMAT) * 
* 

************************* 

READS 6-BIT NIBLS * 

(OOABCDEF) INTO * 

NBUFl AND NBUF2 * 

CONVERTING 7-BIT * 

NIBLS TO 6-BIT * 

VIA 'DNIBL' TABLE * 
* 

FIRST READS NBUF2 * 

HIGH TO LOW, * 

THEN READS NBUFl * 

LOW TO HIGH. * 

A 

ON ENTRY * 

A 

X-REG: SLOTNUM * 

TIMES $10. * 
* 

READ MODE (Q6L, Q7L) * 

* 

ON EXIT * 

A 

CARRY SET IF ERROR. * 

A 

IF NO ERROR: * 
A-REG HOLDS $AA. * 
X-REG UNCHANGED. * 
Y-REG HOLDS $00. * 
CARRY CLEAR. * 

NBUFl AND NBUF2 * 
HOLD 6-BIT NIBLS * 
(OOABCDEF) * 

A 

USES TEMP ' IDX ' . * 

A 

CAUTION * 



OBSERVE 
'NO PAGE CROSS' 

WARNINGS ON 
SOME BRANCHES ! ! 

ASSUMES 

1 USEC CYCLE TIME 



"16-SECTOR READ" 



cAAAAAAAAAA^ 



READ 16 

RSYNC 



RDl 

RSYNCl 



RD2 



RD3 



RDATAl 



LDY 
DEY 
BEQ 
LDA 
BPL 
EOR 
BNE 
NOP 
LDA 
BPL 
CMP 
BNE 
LDY 
(ADDED 
LDA 
BPL 
CMP 
BNE 
(CARRY SET 
LDA 
DEY 



#020 

RDERR 
Q6L, X 
RDl 
#0D5 
RSYNC 

Q6L, X 
RD2 
#0AA 
RSYNCl 
#056 
NIBL DELAY) 

Q6L,X 
RD3 
#0AD 
RSYNCl 

IF DM3 ! ) 

#0 



'MUST FIND' COUNT. 
IF CAN'T FIND MARKS 
THEN EXIT WITH CARRY SET. 
READ NIBL. 

**; NO PAGE CROSS! *** 

DATA MARK 1? 

LOOP IF NOT. 

DELAY BETWEEN NIBLS. 

**; NO PAGE CROSS! *** 
DATA MARK 2? 
(IF NOT, IS IT DM1?) 
INIT NBUF2 INDEX. 



.A*. NO PAGE CROSS! *** 

;DATA MARK 3? 

; (IF NOT, IS IT DM1?) 



: INIT CHECKSUM. 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 



RD4 

RDNIBLl 
; NOTE : 



RDATA2 

RD5 



RDNIBL2 



STY 
LDY 
BPL 
EOR 

LDY 



IDX 
Q6L, X 
RD4 

DNIBL, Y 

IDX 



NO PAGE CROSS! *** 
;XOR 6-BIT NIBL . 



The 
the 



storing of the Nybble into the NBUF has been deleted so that 
formatter doesn't have to prenibblize the data pattern again. 

; STORE IN NBUF2 PAGE. 

; TAKEN IF Y-REG NONZERO. 



;**; NO PAGE CROSS! *** 
;XOR 6-BIT NIBL. 



STA 


NBUF2, Y 


BNE 


RDATAl 


STY 


IDX 


LDY 


Q6L, X 


BPL 


RD5 


EOR 


DNIBL, Y 


LDY 


IDX 



NOTE: The storing of the Nybble into the NBUF has been deleted so that 
the formatter doesn't have to prenibblize the data pattern again. 



000098 




STA 


NBUFl, Y 


; STORE IN NBUFl PAGE. 


000099 










000100 




INY 






000101 




BNE 


RDATA2 




000102 


RD6 


LDY 


Q6L, X 


;READ 7-BIT CSUM NIBL. 


000103 




BPL 


RD6 


;**; NO PAGE CROSS! *** 


000104 


RDNIBL3 


CMP 


DNIBL, Y 


;IF LAST NBUFl NIBL NOT 


000105 




BNE 


RDERR 


; EQUAL CHKSUM NIBL THEN ERR. 


000106 


RD7 


LDA 


Q6L,X 




000107 




BPL 


RD7 


NO PAGE CROSS! *** 


000108 




CMP 


#ODE 


; FIRST BIT SLIP MARK? 


000109 




BNE 


RDERR 


; (ERR IF NOT) 


000110 




NOP 




; DELAY BETWEEN NIBLS. 


000111 


RD8 


LDA 


Q6L, X 




000112 




BPL 


RD8 


;**; NO PAGE CROSS! *** 


000113 




CMP 


#OAA 


/SECOND BIT SLIP MARK? 


000114 




BEQ 


RDEXIT 


; (DONE IF IT IS) 


000115 


RDERR 


SEC 




/INDICATE 'ERROR EXIT'. 


000116 




RTS 




/RETURN FROM READ 16 OR RDADRl 6 


000117 


RDEXIT 


CLC 






000118 




RTS 







#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



FMTREAD . TEXT 

118 
5863 

Assembly Language Reformatter 1.0.2 (06 January 1998) 

David T. Craig — 71533 . 606(3compuserve . com — Santa Fe, New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS DISK /// Formatter Device Driver 1.30 (6502 Assembly Source Code) 

# FILE NAME: FMTWRADDR . TEXT 

#################################################################################################### 



n fi ri n n 1 
U U U U U 1 


.TITLE 


"16-SECTOR WRITE ADDRESS" 




n n n n n ? 

yj \j \j Kj ^ 


.PAGE 






n n n 

u u u u u o 


******************************* 




n n n n n 4 

U U v U U T 




* 




n n n s 


WRITE ADR FIELD SUBROUTINE 


* 




U U U U U 


(16-SECTOR FORMAT) 


* 




u w u u u / 


WRITES SPECIFIED NUMBER OF 


* 




n n n n ft 

u u u u u o 


40-USEC (10-BIT) SELF-SYNC 


* 




n n n n n Q 

U U U U U V 


NIBLS, ADR FIELDS 16-SECTOR * 




n n n n 1 n 

U U U -L U 


START MARKS ( $D 5 , $ AA, $ 9 6 ) , 






U U U U -L X 


BODY (VOLUME, TRACK, SECTOR,* 




U U U U -L Z 


CHECKSUM) , END FIELD MARKS 


* 




U U U W -L O 


AND THE WRITE TURN-OFF NIBL.* 




n n n ni 4 

U U U U -L T 




* 




n n n n 1 s 

U U U U -L O 


******************************* 




nnn m f, 

KJ \J \J KJ J- \J 




* 




nnn m i 

KJ \J \j yj J. 1 


ON ENTRY 


* 




n n n n 1 ft 

U U U U -L O 








n n n n 1 q 

U U U U -L ^ 


THE LOCATIONS VOLUME, TRK, 






n n n n 9 n 

yj Kj \j \j ij 


AND NSECT MUST CONTAIN THE 






n n n n 9 1 

U U U U Z. _L 


DESIRED VOLUME, TRACK, AND 


* 




n fi n n o o 
U U U U z z 


SECTOR VALUES DESIRED. 


* 




9"^ 

W u u u z, ^ 




* 




n n n n 9 4 

U U U U A T 


THE PROPER DRIVE MUST BE 


* 




nnn n 9 R 

U W U U -J 


ENABLED AND UP TO SPEED IN 


* 




n n n 9 

U U U U Z D 


READ MODE (Q7L, Q6L) . 


* 




n n n n 9 7 

U U U U Z / 








n fi ri n o o 
U U U U z o 


X-REG CONTAINS SLOTNUM 






n n n n 9 Q 

U U U U Z 3 


TIMES 16 






n n n n ? n 

u u u u o u 




* 




n n n n ^ 1 

U U U U O X 


Y-REG CONTAINS NUMBER OF 


* 




n n n n 9 

u u u u ^ z. 


SELF-SYNC NIBLS DESIRED 


* 




n n n n 

u u u u o o 


MINUS 1 . 


* 




nnn n "^4 

U U U U J T 


(0 FOR 256 NIBLS) 


* 




n n n ? R 

u u u u o o 




* 




n n n n ^ 

U U U U O D 


******************************* 




r\ n n r\ 'i ^ 
U U U U J / 




* 




000038 


REQUIRES 


* 




000039 




* 




000040 


1 USEC CYCLE 


* 




000041 




* 




000042 


******************************* 




000043 




* 




000044 


CAUTION 


* 




000045 








000046 


MOST OF THIS CODE IS TIME 






000047 


CRITICAL. OBSERVE ALL 






000048 


'NO PAGE CROSS!' WARNINGS 


* 




000049 


ON BRANCHES. 


* 




000050 




* 




000051 


******************************* 




000052 WADR16 SEC 




ANTTCTPATF WR PRDT FRR 


000053 


LDA 


Q6H, X 


INTO ' WR PROT <^FM'^F ' MflFlF 


000054 


LDA 


Q7L, X 




000055 


BMI 


WADRTS 


FRR FYTT TF PROTFCTFn 


000056 


LDA 


#OFF 




000057 


STA 


Q7H, X 




000058 


CMP 


Q6L,X 


(4) RACK TO WRTTF MODF 


000059 


PHA 




('^) FOR DFT.AY 


000060 


PLA 




(4) 


000061 WSYNCl JSR 


WADRTSl 


(12) FOR 40-USEC NIBLS. 


000062 


JSR 


WADRTSl 


(12) 


000063 


STA 


Q6H,X 


(5) WRITE NIBL. 


000064 


CMP 


Q6L,X 


(4) (BACK TO WRITE MODE) 


000065 


NOP 




(2) FOR DELAY. 


000066 


DEY 




(2) NEXT OF 'N' NIBLS. 


000067 


BNE 


WSYNCl 


(3) **; NO PAGE CROSS! *** 


000068 


LDA 


#0D5 


(2) ADR MARK 1 . 


000069 


JSR 


WNIBLB2 


(15, 9, 6) WRITE IT . 


000070 


LDA 


#OAA 


(2) ADR MARK 2 . 


000071 


JSR 


WNIBLB2 


(15, 9, 6) WRITE IT. 


000072 


LDA 


#096 


(2) 16-SECTOR ADR MARK 3. 


000073 


JSR 


WNIBLB2 


(15, 9, 6) WRITE IT. 


000074 


LDA 


NVOL 


(3) 



000075 

JSR WBYTE ; (14,9,6) WRITE NVOL (ODD, THEN EVEN, BITS.) 
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n n n n 7 




LDA 


TRK 


(3) 


WRITE TRACK NUMBER. 


n n n n 7 7 




JSR 


vv O X X Hi 


(14,9,6) ODD, THEN EVEN, BITS) 


nnn n 7 R 

u w u u / o 




LDA 


NSECT 


(3) 


WRITE SECTOR NUMBER. 


nnn n 7 Q 

\J \J \J \J 1 z> 




JSR 


WRYTF 

VV Xj X X Hi 


(14,9,6) (ODD, THEN EVEN, BITS) 


n n n n ft n 

\j \j \j \j \j \j 




LDA 


NVOL 


(3) 




n n n n ft 1 

Vj U U O _L 




EOR 


TRK 


(3) 


FORM ADR FIELD CHECKSUM. 


n n n ft ? 

\J KJ \J \J KJ 




EOR 


NSECT 


(3) 




n n n n ft 

u u u u o o 




PHA 




(3) 


SAVE FOR EVEN BITS. 


n n n n ft 4 

\J \J \J \J KJ ^ 




LSR 




(2) 


ALIGHN ODD BITS. 


n n ft s 

\j \j \j \j \j 




ORA 


AA 


(3) 


SET CLOCK BITS. 


n n n n ft 

u u u u o u 


g \ iz r\ j_j ^ X o i— J 


X X UL X In ^ 


Qo pYfT.FS PER NTRT,^ 






u w u u o / 




STA 


Q 6H, X 


(5) 


WRITE CHECKSUM ODD BITS. 


nnn n 8 8 

u u u u o o 




LDA 


Q 6L X 


(4) 


BACK TO WRITE MODE. 


n n n n ft Q 

U U U U O J' 




PLA 




(4) 


RECOVER FOR EVEN BITS. 


n n n n QD 

\j Kj \j \j y \j 




ORA 


#OAA 


(2) 


SET CLOCK BITS. 


n n n n Q1 

\j Kj \j \j y 




JSR 


[aTN T RT a 


(17, 


9, 6) WRITE THEM. 


n n n n 

U U U U ^ 




LDA 


#ODE 


(2) 


END MARK 1 . 


n n n n Q'^ 

\j \j \j \j y -J) 




JSR 


vv iN X D Xj D Z. 


(15,9,6) WRITE IT . 


n n n n Q4 

\j \j \j \j y '-x 




LDA 


# oaa 


(2) 


END MARK 2 . 


n n n n Q s 
\i \j \j \j J -J 




JSR 


WN T RT,R? 

ir V In X JD Xj XJ 


(15, 9, 6) WRITE IT . 


n n n n Q 

U U U U _7 D 




LDA 


# OEB 


(2) 


END MARK 3 . 


000 97 

V W ^ / 




JSR 


WNIBLB2 


(15, 


9,6) 'WRITE TURN-OFF' 


n n n Q ft 

u u u u ^ o 




CLC 




INDICATE NO WR PROT ERR. 


n n Q Q 

\j Kj \j \j y y 


V V r\ lJ X\ X O 


LDA 


Q7 L X 


OUT 


OF WRITE MODE. 


n ni on 




LDA 


Q 6L, X 


TO READ MODE. 


U U U -L U -L 




RT S 




RETURN 


n ni 9 

W U W _L U Z. 


WRYTF 


PHA 




(3) 


PRESERVE FOR EVEN BITS. 


n n n 1 o 

u u u ± w ^ 




LSR 




(2) 


ALIGN ODD BITS. 


n 1 4 

U U U -L U T 




ORA 


AA 


(3) 


SET CLOCK BITS. 


ono 1 OR 

U W U J- U -J 




STA 


Q 6H, X 


(5) 


WRITE NIBL. 


ono 1 fi 

U U U -L U 




CMP 


Q 6L, X 


(4) 




n 1 7 

U U U -L U / 




P LA 




(4) 


RECOVER FOR EVEN BITS. 


n 1 Oft 

U U U -L U O 




NOP 




(2) 




000109 




NOP 




(2) 


FOR DELAY. 


000110 




NOP 




(2) 




000111 




ORA 


#OAA 


(2) 


SET CLOCK BITS. 


000112 


WNIBLA 


NOP 




(2) 


(17,9,6) ENTRY. 


000113 


WNIBLB2 


NOP 




(2) 


(15,9,6) ENTRY. 


000114 




PHA 




(3) 


FOR 


000115 




PLA 




(4) 


DELAY. 


000116 


WRNIBL 


STA 


Q6H,X 


(5) 


WRITE NIBL. 


000117 




CMP 


Q6L, X 


(4) 




000118 




RTS 




(6) 


RETURN . 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



FMTWRADDR. TEXT 

118 

7495 

Assembly Language Reformatter 1.0.2 (06 January 1998) 

David T. Craig — 71533 . 606(3compuserve . com — Santa Fe, New Mexico USA 
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#################################################################################################### 

# PROJECT : Apple /// SOS DISK /// Formatter Device Driver 1.30 (6502 Assembly Source Code) 

# FILE NAME: FMTFORMAT . TEXT 

#################################################################################################### 



000001 


.TITLE "16-SECTOR FORMATTER" 




000002 






000003 


THIS IS THE 'SEEK' ROUTINE 




000004 


SEEKS TRACK 'N' IN SLOT #X/$10 




000005 


DOES NOT CARE WHETHER ON DRIVE OR 1 OR N . . . 




000006 






000 07 MYSEEK ASL A 




n n n n ft 

u u u u u o 




. OTrTTK TO Tvr HALFTRACK*^ 


n n n n n Q 

U U U u u 


O 1 i r\r\.LN 


•QA^7F riFC^TTMATTHM TPAPT^/*9\ 


n n 1 n 

U U U U -L U 


TXA 




U U U U -L 1 


L SR A 




U U Iz 


LSR A 




u U U U -L O 


L SR A 




n n n ni 4 

U U U U -L T 


LSR A 




n n 1 s 

U U U U -L O 


TAY 




000016 


LDA TRKN 




000017 


JSR SEEK 


• GO THFRF 1 


000018 


LSR CURTRK 


f U J. V ± UHj oiil^r\. UlJWiN 


000019 


RTS 




000020 


.PAGE 




000021 


************************************************ 




000022 


* 




000023 


FORMATTER INITIALIZATION SUBROUTINE * 




000024 


* 




000025 


This subroutine is called by the * 




000026 


driver during OPEN; it will perform * 




000027 


all necessary startup initialization * 




000028 


prior to opening the FORMATTER driver. * 




000029 


* 




000030 


INPUT : none * 




000031 


OUTPUT: NONE * 


/RRA82237/ 


000032 


* 




000033 






000034 






000035 


for 1.1 release: nothing to do since RevO ROM not supported /RRA82237/ 


000036 






000037 FMTSTARTUP .EQU * 




000038 


LDA #0 


; GOOD 


000039 


RTS 




000040 


.PAGE 




000041 


************************************************** 




000042 


* 




000043 


FORMATTER SUBROUTINE * 




000044 


* 




000045 


INPUT: X = DRIVE TO BE FORMATTED (1..4) * 




000046 


'USERBUF' POINTER INITIALIZED. * 




000047 


* 




000048 


OUTPUT: AC = RETURN CODE AS FOLLOWS: * 




000049 


: GOOD COMPLETION * 




000050 


1 : UNABLE TO FORMAT * 




000051 


2 : WRITE-PROTECTED * 




000052 


3 : DRIVE TOO SLOW * 


/RRA82237/ 


000053 


4 : DRIVE TOO FAST * 


/RRA82237/ 


000054 


* 




000055 


************************************************** 




000056 






000057 DSKFORM .EQU * 




000058 






000059 


SELECT THE CORRECT DRIVE: 




000060 






000061 


LDY SEL1,X 


;GET FIRST SELECT 


000062 


LDA 0C000,Y 


; SELECT #1 


000063 


LDY SEL2,X 


;GET SECOND SELECT 


000064 


LDA 0C000,Y 


; SELECT #2 


000065 


LDY SEL3,X 


;GET THIRD SELECT 


000066 


LDA 0C000,Y 


; SELECT #3 


000067 






000068 


CPX #1 


/INTERNAL (.Dl) ? 


000069 


BNE $030 


;=>N0, IT'S EXTERNAL 


000070 


LDA OCOEA 


; SELECT INTERNAL 


000071 


JMP $032 




000072 $030 LDA OCOEB 


; SELECT EXTERNAL 



000073 

000074 ; SET UP THE ENVIRONMENT: 
000075 

000076 $032 LDA E_REG 
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n n n n 7 7 




STA 




E SAVE 




; SAVE CALLER ENV 


n n n n 7 ft 




ORA 




#83 




; 1 MHz, ROM enabled 


nnn n 7 Q 

KJ \J \J KJ 1 ZJ 


/ 


AND 


♦ OFF- 


-10 


; inhibit the RESET 


nnn n R n 

\J \j \J \J yj yj 




STA 




E_REG 






U VJ U U O -L 




PHP 








• Q 7\ pTVT T PR TMHTRTTC; 
f OriVllj L>r\ljljlljr\ 1 O 


n n n n 8 ? 

u u u u o ^ 




PLA 










n n n n ft ^ 

u u u u o o 




STA 




P_SAVE 






n n n n ft 4 

U U U U O 4 














n n n n ft s 

\J yj \J \J Kj -J 


; SAVE THE ROM'S ZEROPAGE AREA: 






n n n n ft 

u u u u o u 














nnn n ft 7 

yj \j yj yj yj i 




LDX 




#31 . 




- T KT n TT V 
f ± IN JJ Jli A 


n n n n ft ft 

u u u u o o 


$035 


LDA 




1480, X 






nnn n ft Q 

yj \j yj yj yj z> 




STA 




XTNDSAVE, X 






n n n n Q n 

yj \J yj \j J yj 




LDA 




80, X 






n n Q1 

yj yj yj yj ^ 1. 




STA 




ZEROSAVE, X 






n n n n Q9 

yj yj yj yj y ^ 




DEX 










n n n n Q 

U U U U 5 o 




BPL 




$035 






n n n n Q 4 

yj yj yj yj y ^ 














n n Q s 

yj yj yj yj z/ 


; START THE MOTOR: 










n n n n Q 

yj yj yj yj y \j 














nnn n Q7 




LDX 




#060 




•aiT aPPTTT — TTT DP T'^/TT C; fl 


nnn n Qft 

yj \j yj yj J yj 




STX 




IBSLOT 






n n n n Q Q 

yj yj yj yj y y 




LDA 




MOTORON, X 




- TM '^T OT 


n n 1 n n 

yj yj yj A- yj yj 














n n ni ni 

C U W -L U -L 


; PRENIBBLIZE 


THE DATA 


BUFFER PRIOR TO WRITING 


/ TftTP T T F 


MnTOR TTvIi^ — TTP 1 • 


n n ni n ? 

yj yj yj A^yj ^ 


; Note: PRENIB16 returns to 


US in 1 MHz mods • 






n n ni n 

U U U -L W O 














n n n 1 n 4 

U U U -L U T 




LDA 




E REG 




. CTTT 9 MDnTT PHP 
^ o Hj j_ z, I in z. pujuhj c 


no n 1 n s 

U U U -L U J 




AND 




it 7F 




TT" a Q TTJ' R 


nnm n fi 

U U U J- U \J 




STA 




E REG 




; PRENIB OPERATION 


nnn 1 n? 




LDA 




J-j x\xj yj n 




; SET DATA ADDRESS 


nnm n ft 

U U U J- u o 




S TA 




BUF 




; TO POINT TO 


nnm n q 

yj yj \j l.yj y 




LDA 




TT C R TDTT-p 1 1 

UOHirxDUr TX 




; THE CALLER'S 


nnm i n 

yj yj yj A — l u 




STA 




BUF + 1 




; BUFFER. . . 


0111 




LDA 




TT C T? R TD TT-p 1 O 




;ALSO SET XTND BYTE 


nnm i 9 

U V -L _L Z. 




STA 




1 4 n n -l-RTTF" -1- 1 
X'iUUTDUr TX 






nnm i 

U U U _L _L ^ 




JSR 




IT r\Ilj In X O X u 




; PRENIB THE BUFFER! 


nnm i 4 














nnm i r 

U W U X X -J 




LDA 




nn7 

ff U JJ / 




; ALMOST 1 SECOND 


nnn 1 i 

U V/ U X i u 




S TA 




MONT TMF4- 1 






0117 














nnm i ft 

yj yj yj A- A- yj 






Ta7H T T F 




TO SPEED: 


0119 














nnm 9 n 

yj yj yj A^ z^yj 




LDA 




it ft n 

TT O U . 




; FAKING TRACK 80 FORCES RECAL 


nnm 9 1 

U U U -L Z, ± 




STA 




CURTRK 






nnm 99 

W U U _L Z, Z. 




LDA 




#0 




;WE WANNA GO TO ZEEEEERO ! 


nnm 9 

U U U X z. o 




JSR 




MYSEEK 




; HONNNNNNNNK! 


nnm 94 














nnn 1 9 r 

U U U X z. o 


WAITUP 


LDA 




MONT I ME +1 




; MOTOR UP TO SPEED? 


nnm 9 s 

U U U X z. u 




BEQ 




$040 




; =>YES 


nnm 97 

U U U X Z. / 




JSR 




MSWAIT 




;N0, WAIT FOR A BIT... 


nnm 9ft 

U U U X z, 




JMP 




WAITUP 






nnm 9 q 

U U U X z, _^ 














nnm n 

U U v X u 


; INITIALIZE 


THINGS : 










nnm "^1 

yj yj yj A^ A- 














n n m "^9 

U U U X J Z: 


$040 


SET 








;N0 IRQ DURING FORMATTING 


nnm 

U U U X 




LDA 




#0 




; SET INTERRUPT RETRIES 


nnn 1 ?4 

U V U X J 'J 




STA 




INTRTRY 




; TO ZERO (NONE OCCURRED) 


nnm s 




LDA 




#80 




; SET INHIBIT INDICATOR 


nnm 1^ 

C U W X u 




STA 




IMASK 




; TO SAY 'NO ENABLE, PLEASE ' 


nnm "^7 














nnn 1 "^ft 

U U U X J 
















LDA 


#1 






; RANDY 


SAYS ALL SARA DISKETTES WILL BE 


n n n 1 q 

yj yj yJ A- j> J 




STA 




NVOL 




;FOR FORMATTER. 


nnm 4 n 

U U U X u 




LDA 




#OAA 




;SET Z-PAG LOG TO $AA FOR 


nnm 41 

U U U X 'd X 




STA 




AA 




;TIME DEPENDENT REFERENCES. 


nnn 1 49 

U \/ U X T z. 




LDA 




DCB_MAXSYNC 




; /RRA8223 


nnm 4 ^ 

U U U X 4 3 




CLC 








;USE LARGER VALUE /RRA8223 


014 4 




ADC 




#2 




; TO START OFF /RRA8223 


nnm 4 s 

C U U X T J 




STA 




NSYNC 




; BEGINNING SELF-SYNC NIBLS . 


nnm 4 

U U U X 4 u 














014 7 




LDA 




#0 




; START ON TRACK ZERO 


000148 




STA 




TRK 






000149 














000150 


FORMTRK 


LDA 




TRK 






000151 




LDX 




#60 






000152 




JSR 




MYSEEK 




;GOTO NEXT TRACK. 


000153 














000154 


; See if the 


diskette is Write-Protected: 






000155 














000156 




LDX 




#60 
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n n n 1 s 7 

U U U _L J 1 






LDA 


Q 6H X 


hj IM cj vv i\ J. 1 cj it r\vy i i iwi-/ nj 


n 1 s R 

KJ \J \J J 10 






LDA 


Q7L X 




U U U J- -7 






TAY 




Qa^7Tr rrc;tttt 


nnn 1 fin 

U V U i u u 






LDA 


Q7L X 


RACK INTO 

O/^V^ 1\ 1. IN 1 W 


U U U _L ± 






LDA 


Q6L, X 


READ MODE 


n 1 fi ? 

U U -L U Z. 






TYA 






U U U -L U 






BPL 


$010 


IT'S OK. 


U V U J- U T 






LDA 


#2 




U U U -L U ^ 






JMP 


FORMDONE 


FLAG WRITE PROTECT. 


n n ni ^ ^ 

C U -L U U 












n n ni fi7 


$ 1 




JSR 


WT16 


WRITE AND VERIFY TRACK. /RRA8 


n n m s 

U U U J- 






BOG 


$020 


=>N0 ERROR 


nnn 1 fiQ 

U V/ U J- U 












n n n 1 7 n 


; BEFORE 


SAYING IT'S 


BAD MEDIA, SEE IF THE DRIVE'S WAY TOO FAST: /RRA82237/ 


0171 












n n n 1 7 ? 






LDA 


# 1 


A'^'^TTMF RAD MEDIA /■RRAft99'^7/ 
c\ u 11 J— 1 D r\ u 11 HiU ±. r\ / r\ r\rt. z, z. / / 


n n n 1 7 






LDY 


IN i In 


PFTTT /RRAP99'^7/ 
IL] X J L / iv r\rt Z. Z, / / 


017 4 






CPY 


U ^ D 1^1 ± IM i IN 


PAPc; TOn C'MATT9 /RRAP99'^7/ 
'cirtl: 1 \^KJ 01 Irt J_i ±j ; / r\r\rt O Z. Z, O ' / 


n n n 1 7 s 






BCS 


$015 


r;AP'=^ OK- RAD MEDIA /RRAft99'^7/ 


n n n 1 if, 






LDA 


Tr 'J 


" PiR T\/R TOn T^ACIT" /RRAft99'^7/ 


00017 7 


$015 




JMP 


FDRMDONF 




nnn 1 7 8 












017 9 


; THE MEDIA FORMATTED 


C\V RTTT TRF nRT\7Tr MTf^HT QTTTT 
l^Tv. . .DUl iriEj UxxivHj i'lJ-Oni O-L-LJ-i-Li Dti 


Tnn c;t dtat riR Ton tt'acit 


n n n 1 9.0 

vj U -L U 












n n n 1 ft 1 

C U U -L -L 


$020 




LDY 


IM J. IN ^ 


CFT TT /RRAft99'^7/ 


n n n 1 ft ? 






CPY 


DPR MTMQYMP 
Lj\jn> 1*1 J. IN J. IN 


r'APc; TOn c;mATT9 /RRAP99'^7/ 
ortjr 1 \J\J 01 Irt J_i ±j ; / r\r\rt O Z. Z, O / / 


n n n 1 ft 

U U U -L 






BCS 


$025 


r^AP9 T.ARriF FMnnriH /RRAft99'^7/ 


n n n 1 ft 4 






LDA 


#4 


"DRIVE TOO FA'^T" /RRAft99'^7/ 


n n n 1 ft s 

U U U -L 






JMP 


FORMDONE 


/RRAQOOQ7 / 

/ r\ C\r\ z. z. / / 


nnm ft 
\j \j \j J. \) 


$025 




CPY 


DCB MAXSYNC 


HAP*^ TOO T.ARf^F'? /RRAft99'^7/ 


nnn 1 9.1 

U U U J- / 






BCC 


$030 


— '>rw /RRAfi99^7/ 


nnm ft ft 

U U U -L 






LDA 


#3 


" riR T\7R TOO c; T HTaT " /RRAP99'57/ 


nnm ft q 

yj yj \j J- y 






JMP 


FORMDONE 


/ r\ ixrt. z. z. / / 


nnm Qn 

U U U J- J^' u 


$030 




LDA 


DCB_SECTRETRY 


"^FTTOR RETRIED /RRAP99Sft/ 
Hi ^ J- \-/X\ xxjij ± r\ -L Hi / r\x\£T. Zi z, u / 


0191 






STA 


RETRYCNT 


Tn TMFi cipr'THR n 

L\J EJ-LNJ_/ OHj'._>J-V_/r\. u. 


nnm q? 

W U w _L J/ Z. 


FINDSO 




.EQU 






nnm q 

U U U _L J/ ^ 






DEC 


RETRYCNT 


DONE RETRTE'^'' 

W iN Hj r\ Hi ± r\ X Hi • 


0194 






BNE 


$010 


— >KTn PfFTTP RFTRYTWl^ 

— f PlHjUiit r\Hj±r\iJ-LNo. 


nnm q r 






LDA 


#1 


' TTM A RT V TO TTDRM A T ' TTRR HR 


nnn 1 Qfi 






JMP 


FORMDONE 




00 0197 












nnm Qft 


$010 




LDX 


#60 




019 9 






JSR 


RDADR16 


RFAD ADR ETET.D 

r\H rt L> r\lJ 1. _L Hi _l_l U • 


n n n 9 n n 

Kj \j \j ^ \j yj 






BCS 


FINDSO 


RRTRV TR RRR 


n n n 9 m 

u u u z u ± 






LDA 


SECT 


r-Wwry- ^IRrTOR THAT TaTA9 READ 


n n n 9 n 9 

W u u z, u z. 






BNE 


FINDSO 


PONTTNTTE "^EARfHINn IF NOT "^EfT n 


n n n 9 n 

u u u z. u 






LDX 


#60 




nnn 9 n4 

U W U U T 






JSR 


READ 16 


mhtat rrad data FTRTD 


nnn 9 n R 






BCS 


FINDSO 


rriXTTTMrTR C^paRfH TTT TTRR 
',^\_/iM±J.iNUHi Hjrl.x\k.^n J. r Hilxxx . 


n n n 9 n fi 

U U w Z, U U 


; (NOW 


POSITIONED PROPERLY FOR NEXT TRACK) 




n n 9 n 7 

U U z. u / 






INC 


TRK 


T'NTPRTi'MR'NTT TR ACV TJrTMRTTR 


n n n 9 n ft 

c u u z. >j 






LDA 


TRK 




n n n 9 n Q 

U U U z. U ^ 






CMP 


#35 . 


k^V-ZiNiJ-iNUHi J. C ±jHiOO J- Xl^iiN U . 


n n n 9 1 n 

U U U z, ± U 






BCC 


FORMTRK 




n n 9 1 1 

W U W Z, _L _L 












n n n 9 1 9 

U U U Z, _L Zj 






LDA 


#0 


nnnn nniviPT ftthm 


nnn 9 1 ^ 












nnn 9 1 4 

U W U Z. X T 


FORMDONE 




PHA 




SAVE RETURN CODE 


n n n 9 1 s 

U U U Z. J. J 






LDX 


#60 




n n n 9 1 f, 

U U U Z. J. u 






LDA 


MOTOROFF, X 


TURN MOTOR OFF. 


n n n 9 1 7 

U U U Z, / 






LDA 


#0 




n n n 9 1 ft 

U U U z. J. 






JSR 


MYSEEK 


RESTORE HEAD TO TRACK 


n n n 9 1 q 

U U U Z, J ' 












n n n 9 9 n 

U U U Z, Z, W 


; RESTORE 


THE 


ROM'S ZEROPAGE AREA: 




0221 












nnn 9 99 






LDX 


#31. 


INDEX 


nnn? 9 T 

U U U Z. Z. J 


$035 




LDA 


XTNDSAVE, X 


RESTORE EXTEND 


022 4 






STA 


1480, X 




n n n 9 9 s 

u u u z. z. ^ 






LDA 


ZEROSAVE, X 




n n n 9 9 fi 

u u u z. z. u 






STA 


80, X 




000227 






DEX 






000228 






BPL 


$035 




000229 












000230 


; Restore 


the 


caller ' 


s Environment: 




000231 












000232 






LDA 


P_SAVE 


RESTORE 


000233 






PHA 




INHIBITS 


000234 






PLP 






000235 






LDA 


E_SAVE 


RESTORE 


000236 






STA 


E_REG 


ENVIRONMENT 



000237 
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000238 
000239 



PLA 
RTS 



/RESTORE RETURN CODE 
; AND RETURN. 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



FMTFORMAT . TEXT 

239 
13436 

Assembly Language Reformatter 1.0.2 (06 January 1998) 
David T. Craig — 71533.60 6@compuserve.com -- Santa Fe, 



New Mexico USA 



#################################################################################################### 
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#################################################################################################### 

# PROJECT : Apple /// SOS DISK /// Formatter Device Driver 1.30 (6502 Assembly Source Code) 

# FILE NAME: FMTWTRACK . TEXT 

#################################################################################################### 



000001 
000002 
000003 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 



000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 



000074 
000075 
000076 



***************************** 



WRITE TRACK SUBROUTINE 



c*************************** 



WE HAVE A COUNTER, TRKRETRY, WHICH PREVENTS WTRACK16 FROM RETRYING /RRA82237/ 
FOREVER. THE EXTENSIVE RETRIES CAUSED THE TRACK TO PRECESS ON /RRA82237/ 
SUCCESSIVE WRITES, POSSIBLY ALLOWING A DAMAGED SPOT ON THE MEDIA TO/RRA82237/ 
BE 'SLID' INTO AN INTERSECTOR GAP. SUBSEQUENT DATA WRITES COULD /RRA82237/ 
THEN ENCOUNTER THE DAMAGED AREA. /RRA82237/ 



WT16 



.EQU 

LDA 

STA 



DCB_TRKRETRY 
TRKRETRY 



/RRA82237/ 

MAX RETRIES TO DO THE TRACK 
TO PREVENT TOO MUCH TRYING 



/RRA82237/ 
/RRA82237/ 



On the first attempt, deliberately write too large a seam, 
ensures that ALL of the track is erased. 



This 



000020 


WTRETRY 


.EQU 




; /RRA82258/ 


000021 




LDY 


#128. 


;128 NIBS PRIOR SECTOR 


000022 




LDA 


#0 


; start at sector /RRA82258/ 


000023 




STA 


NSECT 


; /RRA82258/ 


000024 




JMP 


WSECTO 


; TO INSURE NO BLANK SPOT BETW 15 & 


000025 










000026 


WSECT 


LDY 


NSYNC 


; CURRENT NUM OF GAP SELF-SYNC NIBLS 


000027 


WSECTO 


.EQU 






000028 




LDX 


#60 




000029 




JSR 


WADR16 


; WRITE GAP AND ADR FIELD. 


000030 




BCC 


$010 


;=>GOOD, NOT WRITE-PROTECTED . 


000031 




JMP 


WEXIT2 


;ERR IF WRITE PROTECTED. 


000032 


$010 


LDX 


#60 




000033 




JSR 


WRITE16 


;WRITE SECTOR FROM NBUFl, NBUF2 . 


000034 




BCC 


$020 


; =>0K 


000035 




JMP 


WEXIT2 


;ERR IF WRITE PROTECTED. 


000036 


$020 


INC 


NSECT 


;NEXT OF 16 SECTORS. 


000037 




LDA 


NSECT 




000038 




CMP 


#16. 




000039 




BCC 


WSECT 


; CONTINUE IF NOT DONE. 


000040 




.PAGE 







**************************** 

* 

VERIFY ROUTINE * 

* 

VERIFIES THAT THE FIRST * 
SECTOR ENCOUNTERED IS * 
SECTOR 0, AND THAT ALL * 
16 SECTORS ARE READABLE * 
WITH MINIMAL RETRIES. * 
(2 REVOLUTIONS MAXIMUM) * 

* 

IF FIRST SECTOR IS NOT * 
SECTOR THEN THE * 

CURRENT NUMBER OF SELF- * 
SYNC NIBLS IS DECR'D BY * 
1. THEN SECTOR * 
15 IS LOCATED SO AS TO * 
POSITION THE NEW TRACK * 
REWRITE. * 

* 

IF UNABLE TO READ ANY * 
SECTOR THEN THE ENTIRE * 
TRACK IS REWRITTEN. * 

* 

**************************** 



000066 


.PAGE 






000067 


LDY 


#16.-1 


;sectO is special /RRA82258/ 


000068 


STY 


NSECT 


;SET 16 BYTES OF 


000069 


LDA 


DCB_SECTRETRY 


; SECTOR FOUND TABLE 


000070 


STA 


RETRYCNT 


;T0 SOMETHING NONNEGATIVE 


000071 CLRFOUND 


STA 


FOUND, Y 




000072 


DEY 






000073 


BPL 


CLRFOUND 





Delay for 40uSec per NSYNC byte, to ensure that the gap between 

sector 15 & sector is large enough. 



/RRA8234 0/ 
/RRA8234 0/ 
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000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 



SODELAY 



LDA 

SEC 

SBC 

TAY 

.EQU 

JSR 

JSR 

PHA 

PLA 

NOP 

NOP 

DEY 

BNE 



NSYNC 
#5 



WEXIT2 
WEXIT2 



SODELAY 



get current count 



/RRA82340/ 



two already past and /RRA82340/ 



five for sync'ing 



(12) 

(12) 

(3) 

(4) 

(2) 

(2) 

(2) 

(3) 



/RRA82340/ 

/RRA82340/ 
/RRA8234 0/ 
/RRA82340/ 
/RRA82340/ 
/RRA8234 0/ 
/RRA8234 0/ 
/RRA82340/ 
/RRA82340/ 
/RRA82340/ 
/RRA82340/ 



See if we have a sector-zero here: 



LDX 
JSR 
BCS 
LDA 
BEQ 



#60 

RDADR16 
REWRITE 
SECT 
VDATA 



READ NEXT ADDRESS FIELD. 

ERR, LOCATE SECT 15 AND REWRITE TRK. 

WAS IT SECTOR 0? 

YES, NOW VERIFY DATA FIELD. 



; NO SECTOR 0? THEN SYNC GAPS ARE TOO LARGE. SHRINK 'EM. 



DEC 
LDA 
CMP 
BCS 
SEC 
RTS 



NSYNC 
NSYNC 

DCB_MINSYNC 
REWRITE 



; Make sure we can read the track we just wrote. 
VSECT 



LDX 
JSR 
BCS 

LDX 
JSR 

BCS 

LDY 
LDA 
BMI 

LDA 
STA 
DEC 

BPL 



REMOVED 



WEXITl 



VERRl 



'BLIND DECREMENT 
CLC 
RTS 



#60 
RDADR16 
VERRl 

#60 

RE AD 16 

VERRl 

SECT 
FOUND, Y 
VERRl 

#0FF 
FOUND, Y 
NSECT 
VSECT 

OF NSYNC 



IF TOO SMALL, UNRECOVERABLE /RRA82237/ 
OK, REWRITE AFTER DATA FLD 15. 
DRIVE EXTREMELY FAST /RRA82237/ 

(CALLER WILL CHECK NSYNC) /RRA82237/ 



;READ AN ADDRESS FIELD. 
; RETRY IF ERR. 



/RRA82258/ 



ON TRACKS 1 , 



DEC 
BNE 



RETRYCNT 
VSECT 



;READ DATA FIELD. 
; =>it ' s bad . . . 

;THIS IS SECTOR READ. 
; ALREADY FOUND? 
;YES, IGNORE IT. 



INDICATE THIS SECT NOW FOUND. 

FOUND 16 SECTORS? 

NO, LOOK FOR NEXT. 

34 /RRA82237/ 

INDICATE NO ERROR. 

RETURN. 

NEXT OF 48 SECTOR TRIES. 
(KEEP TRYING) 



We can't get a good verif y ... maybe we should rewrite the track. 



DEC 
BNE 
SEC 
RTS 



TRKRETRY 
REWRITE 



MORE RETRIES? /RRA82237/ 
->YES, TRY AGAIN /RRA82237/ 
UNABLE TO WRITE S VERIFY /RRA82237/ 
/RRA82237/ 



Read Sector 15 data to position for track retry. 



REWRITE 



S15L0C 



N0TS15 



WEXIT2 



.EQU 

LDA 
ASL 
STA 

LDX 
JSR 
BCS 
LDA 
CMP 
BEQ 
DEC 
BNE 
SEC 
RTS 



DCB_SECTRETRY 
A 

RETRYCNT 
#60 

RDADR16 
N0TS15 
SECT 
#15. 

PASS15 

RETRYCNT 

S15L0C 



MAX RETRIES 
*2 for good find 



/RRA82258/ 

/RRA82258/ 
/RRA82258/ 
/RRA82258/ 



READ ADDRESS FIELD. 

ERR, TRY UP TO 128 TIMES. 

SECTOR THAT WAS READ. 

SECTOR 15? 
YES, GO FOR IT. /RRA82258/ 

TRY FOR SECT 15 AGAIN. 

SET CARRY TO INDICATE VERIFY ERR. 

AND RETURN TO FORMATTER. 
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000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 



Delay to 
rewrite 
that we 
aligned 

PASS15 

VFYDELAY 



let most of sector 15 's data pass by, then go back, and /RRA82258/ 
the track (including the 128-nibbles of seam) . This assures/RRA82258/ 
will rewrite the track entirely, and that sector will be /RRA82258/ 
at roughly the same place as it was on the prior try. /RRA82258/ 



.EQU 

LDX 

.EQU 

JSR 

JSR 

BIT 

DEX 

BNE 

JMP 



#342.-128. 

WEXIT2 
WEXIT2 


VFYDELAY 
WTRETRY 



LET MOST GO BY 

(12) 
(12) 
( 3) 
( 2) 
( 3) 

WRITE TRACK FROM HERE IF NO ERR. 



/RRA82258/ 
/RRA82258/ 
/RRA82258/ 
/RRA82258/ 
/RRA82258/ 
/RRA82258/ 
/RRA82258/ 
/RRA82258/ 



#################################################################################################### 



END OF FILE 
LINES 

CHARACTERS 

Formatter 

Author 



FMTWTRACK . TEXT 

172 

10797 

Assembly Language Reformatter 1.0.2 (06 January 1998) 

David T. Craig — 71533 . 606(3compuserve . com — Santa Fe, New Mexico USA 



#################################################################################################### 



### 
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